home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
patches
/
ambk20pt.lha
/
ab_install
next >
Wrap
Text File
|
1995-01-24
|
3KB
|
159 lines
;script to install Ami-Back
(complete 0)
;Delete old config file.
(if (exists "S:Ami-Back.config")
(delete "S:Ami-Back.config"
(prompt "Do you want to delete your old (incompatible) config files?")
(confirm 2)
(help "Unless you plan to continue using the old version of Ami-Back "
"you should delete your old configuration files since they are not "
"compatible with the new version."
)
)
)
;Get directory to install Ami-Back in.
(set destdir
(askdir
(prompt "In which drawer should Ami-Back be installed?")
(help @askdir-help)
(default (tackon @default-dest "Ami-Back"))
)
)
(set vernum (getversion))
(set ver (/ vernum 65536))
(set rev (- vernum (* ver 65536) ) )
;Get version of Ami-Back that sould be installed
(if (> @user-level 1)
(
(set abversion
(askchoice
(prompt "Which version of Ami-Back should be installed\n")
(choices "1.3 Version" "2.0 Version")
(default (> ver 36))
(help "The 1.3 version of Ami-Back will run under WB 1.3 or WB 2.0. "
"The 2.0 version supports the additional features of WB 2.0 such "
"as links and faster directory scanning."
)
)
)
(if (> abversion 0)
(
(set ver 37)
)
(
(set ver 34)
)
)
)
)
(complete 10)
;Determine system version.
(if (> ver 36)
(
(set abprog "Ami-Back:Ami-Back2.0")
(copylib
(source "Ami-Back:Libs2.0/AmigaGuide.library")
(dest "LIBS:")
)
(copyfiles
(source "Ami-Back:S")
(dest "S:")
(all)
)
(set poffset 217844)
(set abversion 1)
)
(
(set abprog "Ami-Back:Ami-Back1.3")
(copylib
(source "Ami-Back:Libs1.3/gadtools13.library")
(dest "LIBS:")
)
(copylib
(source "Ami-Back:Libs1.3/asl13.library")
(dest "LIBS:")
)
(set poffset 218542)
(set abversion 0)
)
)
(complete 40)
;Copy program files to destination.
(copyfiles
(source abprog)
(dest destdir)
(all)
)
(complete 90)
;Personalize Ami-Back.
(set tryperson 1)
(set @user-level 1)
(if (> abversion 0)
(
(run "Ami-Back:C/Person"
('\"%s\"' ;Need to quote filename argument.
(tackon destdir "Ami-Back20")
)
('\"%s\"' ;Need to quote name argument.
(askstring
(prompt "What is your name?")
(help "You must enter your name or company name so that your copy of Ami-Back can be personalized.")
)
)
(askstring
(prompt "What is your serial number?")
(help "You can find your serial number on the front of you Ami-Back master disk.")
)
poffset
)
)
(
(run "Ami-Back:C/Person"
('\"%s\"' ;Need to quote filename argument.
(tackon destdir "Ami-Back13")
)
('\"%s\"' ;Need to quote name argument.
(askstring
(prompt "What is your name?")
(help "You must enter your name or company name so that your copy of Ami-Back can be personalized.")
)
)
(askstring
(prompt "What is your serial number?")
(help "You can find your serial number on the front of you Ami-Back master disk.")
)
poffset
)
)
)
;Correct @default-dest so that final information is correct.
(set @default-dest destdir)
(complete 100)
(exit)